setwd("/Volumes/Data/localDataNoBackup/sfer9710/Dropbox/LoudnessTwo/CodeStats")


# > names(v)
#[1] "Time"         "MeanSubjResp" "STDSubjResp"  "variable"     "value" 

ld1 = subset(ld, variable =="Subject1")
p = ggplot(ld, aes(Time, value/32767, grouping = variable)) + geom_line( colour = alpha("black",1/10)) +geom_line(aes(x=Time,y=MeanSubjResp/32767),colour = "red") + xlab("Time (s)") + ylab("Subjective Response")+facet_grid(file~.);
p





ld = read.table("LoudnessData.txt",header=TRUE,sep="\t")
names(ld)
#[1] "Time"                 "SubjectiveData"       "Loudness"             "AweightedSPL"         "SpectralCtrdThirdOct" "Filename"             "File"                
#[8] "Permutation"   
# Plot against Permutation

p = ggplot(ld,aes(Time,AweightedSPL)) + geom_line() + facet_grid(File~Permutation) +ylim(40,85)
p = ggplot(ld,aes(Time,Loudness)) + geom_line() + facet_grid(File~Permutation) +ylim(0,80)
p = ggplot(ld,aes(Time,SubjectiveData)) + geom_line() + facet_grid(File~Permutation) +ylim(0,80)
p